5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:REM CLEAR SOUND CHIP, SET VOLUME
20 POKE54277,8:POKE54278,255:POKE54276,21:REM ENVELOPE AND WAVEFORM
30 POKE54287,40:REM VOICE 3 FREQ. CONTROLS MAIN PITCH
40 FORZ=1TO4:REM Z IS NO. OF CYCLES
50 FORF1=255TO0STEP-6:POKE54273,F1:NEXTF1:REM STEP SIZE CONTROLS DOWN SPEED
60 FORF1=0TO255STEP20:POKE54273,F1:NEXTF1:NEXTZ:REM STEP SIZE CONTROLS UP SPEED
70 POKE54278,15:REM STOPS SOUND
75 LIST